home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Skunkware 5
/
Skunkware 5.iso
/
lib
/
perl5
/
auto
/
POSIX
/
getgroups.al
< prev
next >
Wrap
Text File
|
1995-07-02
|
206b
|
11 lines
# NOTE: Derived from lib/POSIX.pm. Changes made here will be lost.
package POSIX;
sub getgroups {
usage "getgroups()" if @_ != 0;
local(%seen) = ();
grep(!$seen{$_}++, split(' ', $) ));
}
1;